$file = "HGU133A_Hs_ENSG_probe_tab";
open(BUFF,$file);
open(WRBUFF,">output_probesets_num.txt");
$line = <BUFF>;
while($line = <BUFF>)
{
	chomp $line;
	$line =~ s/\n//g;
	$line =~ s/\r//g;
	@array = split("\t",$line);
	if($hi{$array[0]} eq "k")
	{
		 $hi1{$array[0]}++;
	}
	else
	{
		$hi{$array[0]} = "k";
		$hi1{$array[0]} = 1;
	}

}
while ( my ($key, $value) = each(%hi1) ) {
        print WRBUFF "$key\t$value\n";
    }
